home *** CD-ROM | disk | FTP | other *** search
/ Star Festival... a Return to Japan / Star Festival... a Return to Japan.iso / pc / STARFESTIVAL / Shared.Cst / 00145_sliderVox.ls < prev    next >
Encoding:
Text File  |  1999-10-10  |  889 b   |  40 lines
  1. -- ctl bar mouseDown handler
  2. on moveSlider
  3.   global DEBUG
  4.   global gSliderStart, gSliderEnd, gSliderLength, gThumbSprite
  5.   global gTimeTot
  6.   global gPcVidSprite
  7.   
  8.   repeat while the mouseDown
  9.     
  10.     set theH = the mouseH
  11.     if theH < gSliderStart then set theH = gSliderStart
  12.     if theH > gSliderEnd then set theH = gSliderEnd
  13.     
  14.     set the locH of sprite gThumbSprite = theH
  15.     
  16.     set temp = integer((gTimeTot * (theH - gSliderStart)) / gSliderLength)
  17.     
  18.     if DEBUG then put "goToTime"
  19.     set the movieTime of sprite gPcVidSprite = temp
  20.     
  21.     set the locH of sprite 46 = the mouseH
  22.     set the locV of sprite 46 = the mouseV
  23.     
  24.     updateStage
  25.   end repeat
  26.   
  27. end moveSlider
  28.  
  29. ------------------------------------------------------------
  30.  
  31. on playVox
  32.   
  33.   puppetSound "voxInt"
  34.   updateStage
  35.   
  36. end playVox
  37.  
  38. ------------------------------------------------------------
  39.  
  40.